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INTRODUCTION 

The  AMMRC  diffractometer  subroutine  package,  DSP1,  was  developed  to  allow  a 
PDP-8  computer  with  a  4K  memory  to  control  a  4-axis  X-ray  diffractometer  in  a  variety 
of  step  scan  and  integrated  intensity  measurements  in  the  AMMRC  program  of  materials 
research.  It  is  used  in  conjunction  with  the  AMMRC  floating  point  package,  FPPlj 
described  in  ifet-ail  m^AMMRC  TB^Cls4-7 which  it  uses  for  all  calculations"!  Input, 
and  output.  The  general  functions  of  DSP1  include  storage  and  retrieval  of  scan 
parameters,  conversion  of  reciprocal  space  coordinates  (for  cubic  systems)  into 
shaft  angle  settings,  anti-backlash  shaft  positioning,  and  fixed  time/ fixed  count 
X-ray  counting  (with  dead  time  correction),  plus  bookkeeping  and  manipulation  to 
repeat  measurements  for  scans  with  either  one  ( 1— D)  or  two  (2-D)  sets  of  increments. 

It  is  composed  of  40  subroutines  ranging  from  simple  wait  loops  to  complex  operations, 
with  the  addresses  of  31  of  these  listed  on  page  0  for  easy  access,  plus  a  minimal 
interrupt  routine.  It  also  includes  a  few  examples  of  programs  for  standard  types 
of  measurements.  The  DSP1  package  occupies  978  words  of  memory,  thus,  DSP1  and  FPP1 
together  occupy  2079  words,  leaving  approximately  half  the  4K  memory  available  for 
data  storage  and  other  programming.  As  with  FPP1 ,  linkages  for  multiple  field  opera¬ 
tions  are  left  to  users  with  more  experience  in  extended  memory  systems^ 

We  shall  first  summarize  the  particular  diffractometer  and  computer  interface 
characteristics  and  instructions  that  are  reflected  in  this  package.  Next,  we  de¬ 
scribe  the  function  and  use  of  each  subroutine,  taken  roughly  in  order  of  increasing 
complexity.  We  then  consider  the  examples  of  standard  programs,  outlining  their  use 
in  some  detail.  Finally,  after  a  few  other  comments,  we  include  a  complete  PAL  III 
pass  3  listing  of  the  assembled  package. 


HARDWARE  AND  IOT  SPECIFICS 

The  diffractometer  axes  are  driven  by  Slo-Syn  stepping  motors  which  have  step 
intervals  of  .005°  for  the  20,  Q ,  and  X  rotations  and  .01°  for  the  a>  rotation.  These 
intervals  are  reflected  in  the  conversion  constants  stored  at  4745  ff. 

The  output  pulses  from  the  single  channel  pulse  height  analyzer  of  the  X-ray 
detection  electronics  are  counted  in  the  computer  through  a  data  break  arrangement 
that  increments  memory  location  0037.  There  are  no  hardware  provisions  to  clear 
0037  or  to  detect  its  overflow.  The  time  constant  for  count-rate  dead  time  correc¬ 
tions,  DDTAU  (3672),  has  been  approximated  as  4.0  u  sec;  it  should  be  measured  accu¬ 
rately  for  the  particular  system.  The  counting  circuit  and  the  internal  clock  are 
both  gated  by  the  same  'Enable’  flip-flop. 

The  internal  clock  is  based  on  a  crystal-controlled  clock  operating  at  a 
frequency  of  9.600  kHz.  When  its  gate  is  enabled,  that  clock  output  is  scaled  by 
a  5-bit  binary  scaler  to  yield  300  pulses  per  second  to  set  the  clock  flag.  If  the 
Interrupt  is  on,  setting  the  clock  flag  causes  a  program  interrupt,  and  control 
branches  to  the  interrupt  routine  to  identify  the  set  flag  and  carry  out  the  opera¬ 
tions  planned  for  that  situation. 


1.  WALKER,  C.  B.  FPPI,  A  floating  Point  Package  for  POPS  Computers.  Army  Materials  and  Mechanics  Research  Center,  AMMRC 
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The  external  counter/tiraer  unit  is  started  and  stopped  by  the  same  'Enable1 
flip-flop  that  controls  the  internal  clock  and  counting  gates.  It  is  reset  by  a 
separate  signal. 

The  teletype  (TTY)  motor  can  be  turned  off  and  on  by  a  program-controlled 
relay  to  avoid  overheating  during  long  runs. 


The  program  commands,  called  IOT  instructions,  that  are  provided  to  use  this 
hardware  are  as  follows: 


6311 

6312 

6314 

6316 

6321 

6322 
6324 

6331 

6332 
6334 

6341 

6342 
6344 

6351 

6352 
6354 


Skip  the  next  instruction  if  the  clock  flag  is  not  set. 

Clear  the  clock  scaler  and  clock  flag,  and  turn  ON  the  clock/count 
'Enable'  flip-flop. 

Turn  OFF  the  clock/count  'Enable'  flip-flop. 

Clear  the  clock  scaler  and  clock  flag,  and  turn  OFF  the  clock/count 
'Enable'  flip-flop. 

Increase  the  28  setting  one  step. 

Decrease  the  28  setting  one  step. 

Increase  the  ft  setting  one  step. 

Decrease  the  ft  setting  one  step. 

Increase  the  x  setting  one  step. 

Decrease  the  X  setting  one  step. 

Increase  the  <P  setting  one  step. 

Decrease  the  <p  setting  one  step. 

Reset  the  external  counter/ timer  unit. 

Turn  OFF  the  teletype  motor. 

Turn  ON  the  teletype  motor. 

Unused. 


Turning  on  the  computer  power  establishes  the  following  initial  states:  the 
clock/count  'Enable'  flip-flop  is  turned  OFF;  the  clock  scaler  and  clock  flag  are 
cleared;  the  teletype  motor  is  turned  ON;  and  the  Interrupt  is  turned  OFF. 


SUBROUTINES 

The  description  of  each  DSP1  subroutine  includes  its  name,  a  parenthesized  Z 
if  its  address  is  listed  on  page  0,  its  address,  and  a  brief  discussion  of  its  func 


tion  and 

usage , 

as 

follows : 

WAIT 

(5345) 

- 

Do  nothing  for  2311  machine  cycles,  ~  .0035  sec.  Used,  for 
example,  to  establish  the  pulse  rate  to  the  stepping  motors. 

PAWS 

(5354) 

- 

Pause  for  N  wait  loops,  where  -N  is  in  the  AC  on  entry.. 

TTYOF(Z) 

(5171) 

- 

Turn  off  TTY  motor;  pause  ~1  sec  before  exit. 

TTYON(Z) 

(5362) 

- 

Turn  on  TTY  motor;  pause  -"l  sec  before  exit. 

SFRMT(Z) 

(5062) 

Set  the  standard  output  format:  F8.3,  with  no  automatic 
following  carriage  return/line  feed. 

FCHIN 

(4714) 

Set  FAC  to  ~  2-128;  used  to  avoid  division  problems 
when  FAC  =  0. 

ARCS IN 

(4721) 

Calculate  sin-i  (FAC),  and  leave  the  result  (limited  to  the 
range,  ±|)  in  FAC.  If  FAC  >  1  on  entry,  set  FAC  to~2+565 
so  the  angle  will  be  ignored  as  exceeding  diffractometer  limits 
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TRICR(Z)  (5000) 


-  Tricrement  (i.e.,  add  three  to)  locations  VI  and  V2;  used  in 
manipulating  a  series  of  sequentially  stored  3-word  floating 
point  numbers. 

D03A(Z)  (5114)  _  Do  the  program  between  JMS  D03A  and  JMS  D03B  three  times, 

D03B(Z)  (5122)  tricrementing  VI  and  V2  after  each  pass.  V2  must  be  preset 

before  entry;  VI  may  be  either  preset  (then  AC  =  0)  or  carried 
in  AC  on  entry  to  D03A.  These  delimit  a  3-cycle  DO  loop  for 
operations  on  3  sequentially  stored  variables,  e.g. ,  vector 
components. 

READA(Z)  (5011)  -  Input  an  angle  (in  deg)  which  is  converted  to  motor  steps 

with  the  multiplier  at  the  address  in  V2  and  stored  at  the 
address  in  VI;  VI  and  V2  are  tricremented  before  exit. 

TYPEA(Z)  (5025)  -  Output  the  angle  (in  deg)  stored  at  the  address  in  VI,  after 

conversion  from  motor  steps  using  the  multiplier  at  the 
address  in  V2;  VI  and  V2  are  tricremented  before  exit. 

RSTAS(Z)  (4210)  -  Input  (in  deg)  a  set  of  angles  -  28,  X,  <p  -  which  are 

converted  to  motor  steps  and  stored  in  consecutive  (floating 
point  word)  locations,  with  the  address  of  the  first  either 
preset  in  VI  (so  AC  =  0)  or  carried  in  AC  on  entry. 

READV(Z)  (5130)  -  Input  vector  components  (3),  which  are  stored  consecutively, 

with  the  address  of  the  first  (the  vector  address)  either 
preset  in  VI  (so  AC  =  0)  or  carried  in  AC  on  entry. 

SHFTV(Z)  (5140)  -  Get  the  vector  (3  components)  with  the  vector  address  in  V2 

and  store  it  at  the  vector  address  in  Vl. 

TYPEV(Z)  (5150)  -  Output  the  components  of  the  vector  with  the  vector  address 

in  VI. 

ADDV(Z)  (5160)  -  Add  the  vector  with  the  vector  address  in  VI  to  the  vector 

with  the  vector  address  in  V2  and  store  the  resultant  vector 
at  the  vector  address  in  VI. 

MPYV  (4671)  -  Form  the  scalar  product  of  the  vectors  with  the  vector  addresses 

in  VI  and  V2,  and  leave  the  result  in  FAC. 

MPYVH  (4707)  -  Form  the  scalar  product  of  the  vector  with  the  vector  address  in 

VI  and  the  diffraction  vector  H  (vector  address:  4532),  and 
leave  the  result  in  FAC. 

TYPEX(Z)  (4000)  -  If  the  vector  address  of  the  diffraction  vector  H  is  in  AC  on 

entry,  output  the  components  of  H;  if  the  address  of  28  is  in 
AC  on  entry,  output  (in  deg)  the  set  of  angles:  28,  X,  <P.  Any 
unwanted  angle  output  may  be  suppressed  by  changing  the 
appropriate  "4526"  instruction  to  "4521." 

TYCPS(Z)  (5073)  -  Output  the  corrected  count  rate,  CPS  (3700),  in  counts/sec. 

TYCNT(Z)  (5102)  -  Output  the  measured  counts  stored  in  HICNT,  LOCNT  (3676, 

3677)  in  integer  format  18;  then  reset  for  standard  format. 

RCOMI(Z)  (4200)  -  Input  an  integer  <4096  and  exit  with  its  complement  in  AC. 

CTLMT(Z)  (4173)  -  Input  a  preset  count  limit  (in  units  of  4096),  an  integer  not 

to  exceed  2047.  This  limit  will  apply  to  all  the  scans  in  a 
programmed  series  of  measurements. 

TMLMT(Z)  (3707)  -  Input  a  preset  time  limit  (in  sec)  which  is  converted  to  scaled 

clock  pulses  and  stored  at  the  address  in  VI.  Each  scan  in  a 
programmed  series  has  its  own  preset  time  limit. 

DFLMT(Z)  (5036)  -  Input  (in  deg)  the  set  of  diffractometer  angle  limits  - 

2®upper >  lower*  ^upper>  ^ lower  ”  which  are  converted  and 
stored  as  TTHU  (52321,  etc. 


XTAL(Z)  (4400) 


First,  input  the  Miller  indices  specifying  the  direction  in  the 
single  crystal  of  the  vector  H  parallel  to  the  <p  axis  of 
rotation  (N||H  when  X  =  0);  next',  input  the  Miller  indices 
specifying  the  direction  of  the  vector  P  perpendicular  up  from 
the  diffraction  plane  when  X  = <P  =0.  These  are  normalized  and 
stored,  along  with  the  derived  components  of  the  3rd  orthogonal 
vector,  T  =  P  x  N.  Input,  finally,  the  value  of  X/2a0,  where  X 
is  the  X-ray  wavelength  and  aQ  is  the  unit  cell  edge.  This 
routine,  and  the  routine  ANGLE  discussed  next,  are  used  to 
calculate  the  29,  x,  and  <p  settings  for  a  given  position  of  the 
diffraction  vector  H  in  reciprocal  space.  They  apply  only  to 
crystals  with  cubic  symmetry. 

ANGLE(Z)  (4600)  -  Calculate,  convert  to  motor  steps,  and  store  the  set  of  angles  - 

20,  X ,  <p  -  for  a  given  diffraction  vector  H  and  the  crystal 
specifics  entered  with  XTAL  using  the  algorithms: 

20  =  2  sin_1(  |H|  X/2a0)  =  "  tan-1  (Ht/Hp) 

X  =  sgn(Hp)  tan_1[(Ht2  +  Hp2)^/Hn]. 

H  and  its  components  along  N,  T,  and  P  are  all  in  units  of 

ac  ^  • 

LIMIT(Z)  (5200)  -  Test  whether  20  and  X  are  within  the  specified  diffractometer' 

angle  limits.  If  either  angle  is  outside  its  limits,  exit 
the  subroutine  normally;  if  both  are  within  their  limits,  exit 
to  the  second  instruction  after  the  subroutine  call. 

MOVE  (5272)  -  Change  a  specified  angle  by  N  motor  steps,  where  the  integer  N 

is  in  HORD,  LORD  (0045,  0046)  on  entry.  If  N  <  0,  a  40-step 
overrun  and  runback  is  added  so  that  the  final  motion  is  towards 
increasing  angle,  as  an  anti-backlash  provision.  The  address  of 
the  IOT  instruction  to  decrease  that  angle  one  step  is  in  LIMIT 
(5200)  on  entry.  Rotation  is  at  a  constant  rate,  ~280  steps/sec 
without  initial  or  final  ramping. 

RUN0VR  (5332)  -  Add  -40  to  the  integer  in  HORD,  LORD;  used  in  MOVE  above. 

STEP(Z)  (5246)  -  Move  (anti-backlash)  the  three  diffractometer  angles  from 

their  current  settings,  stored  in  TTHO  ff,  to  their  new  settings 
stored  in  TTH  ff.  The  angles  changed  are  those  whose  IOT  step 
instructions  are  the  first  three  pairs  of  entries  in  the  table 
beginning  at  5370. 

CNTADD  (3727)  -  Update  the  count  stored  in  HICNT,  LOCNT  by  transferring  the 

contents  of  the  data  break  counter,  DBCNTR  (0037),  to  LOCNT 
and  incrementing  HICNT  if  the  new  LOCNT  number  is  smaller 
than  the  previous  one  (i.e.,  DBCNTR  has  overflowed).  When 
updating  is  done  at  each  clock  interrupt,  missed  overflows 
should  occur  only  for  count  rates  ~10^  counts/sec,  and  at  such 
rates  dead  time  losses  are  already  prohibitively  large. 

COUNT(Z)  (3600)  -  Count  X-ray  pulses  (using  CNTADD)  up  to  the  preset  time  or 

preset  count  limit,  whichever  is  first,  and  calculate  and 
store  in  CPS  the  X-ray  count  rate  corrected  for  dead  time 
losses.  This  uses  the  interrupt  routine,  changing  the 
response  address  to  select  the  actions  appropriate  to  the 
begin,  run,  and  stop  phases  as  needed.  This  is  the  only  use 
of  the  interrupt  facility  in  this  package. 


CLEAR(Z)  (3717) 
BASIC(Z)  (4163) 


INDTS(Z)  (4222) 


GTNDS(Z)  (4262) 

SCNET(Z)  (4321) 


SCINT(Z)  (4020) 


i 

! 
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Clear  various  flags  and  registers  identified  in  the  PAL  III 
listing.  This  is  a  first  step  in  most  programs. 

This  block  routine  incorporates  the  following  routines  needed 
at  the  start  of  most  measurements:  clear  flags  and  registers; 
input  diffractometer  angle  limits;  input  the  current  diffrac¬ 
tometer  angle  settings;  input  the  preset  count  limit;  and  set 
the  standard  output  format. 

This  block  routine  handles  input  and  storage  of  the  data 
defining  the  various  1-D  or  2-D  scans  in  a  desired  series  of 
measurements.  Input,  first,  the  number  of  scans  in  the  series. 
For  each  scan  in  turn,  input  its  preset  time  limit,  the  three 
initial  settings  (angles  or  components  of  H,  depending  on  the 
type  of  scan),  the  increments  for  each  variable  in  a  scan  step, 
and  the  number  of  such  steps.  For  2-D  sea',  input  also  the 
second  increments  for  each  variable,  and  the  number  of  these 
second  steps.  A  switch  address,  SWADD  (4257),  is  preset  to 
treat  the  data  as  angles  or  as  components  of  H;  all  the  scans 
in  a  series  must  be  of  that  same  type.  If  2-D  scans  are 
involved,  for  which  AC  =  7777  on  entry,  the  data  for  all  scans 
must  have  the  2-D  format;  in  this  case,  a  real  1-D  scan  is 
achieved  by  having  1  as  the  second  step  number.  These  data 
are  stored  sequentially  in  two  series;  namely,  the  floating 
point  numbers  in  locations  1600  thru  3477  and  the  integers  in 
3500  thru  3577  (see  STOREZ,  ISTORZ,  and  COUNT).  That  storage 
is  sufficient  for  a  series  of  32  2-D  scans  or  45  1-D  scans. 

Bring  the  data  defining  the  next  scan  to  be  run  in  the  series 
from  storage  to  the  appropriate  active  program  locations. 
Retrieves  data  stored  by  INDTS. 

This  block  routine  carries  out  the  complete  programmed  series 
of  step  scan  measurements.  The  data  defining  a  scan  are 
retrieved,  and  for  each  point  on  that  scan,  the  diffractometer 
angles  are  calculated  and  positioned,  the  X-ray  intensity  is 
measured  for  the  preset  time  (or  preset  count),  and  the  results 
are  typed  out.  This  is  repeated  for  each  of  the  programmed 
scans.  The  output  at  each  point  consists  of  the  three  variables 
(angles  or  components  of  H,  as  per  scan  type),  the  measured 
count,  and  the  count  rate  (counts/sec)  corrected  for  dead  time. 
In  angle  scans,  any  unwanted  angle  typout  may  be  suppressed  by 
a  program  change  as  discussed  in  TYPEX,  but  note  that  this 
suppression  applies  to  all  of  the  scans  in  the  series. 

This  block  routine  carries  out  a  complete  programmed  series  of 
integrated  intensity  scan  measurements.  These  are  2-D  angle- 
type  scans  similar  to  those  of  SCNET,  but,  for  each  second 
increment  step,  the  measured  count  rate  (corrected  for  dead 
time)  is  summed  over  all  points  in  the  set  of  first  increment 
steps,  and  the  single  line  of  output  for  that  pass  consists  of 
its  three  initial  angle  settings  (unwanted  typouts  suppressed 
as  discussed  above)  and  its  integrated  corrected  count  rate,  I. 
By  presetting  ANGX  (4153)  and  PPRX  (4154)  to  refer  to  an  angle  A 
given  a  significant  second  increment,  an  average  value  of  A  is 
also  calculated  at  the  end  of  the  scan;  a  final  line  of  output 
gives,  first,  a  sum  of  the  products,  (I-B)*A,  over  all  second 
increment  steps,  then  a  sum  of  I-B  over  all  such  steps,  and 
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finally,  from  their  quotient,  the  average  value  of  A.  B  is  a 
preset  integrated  background  cutoff;  the  quantities  (I-B) 
for  any  second  step  are  included  in  the  calculations  only  if 
(I-B )>0 . 


STANDARD  PROGRAMS 

Complete  programs  of  four  different  types  have  been  included  in  this  package 
for  both  their  usefulness  for  standard  measurements  and  calculations  and  as  examples 
of  how  to  program  using  DSPl. 

Program  I,  with  Start  Address  (SA)  =  0312,  calculates  the  angles,  20,  X,  and 
< p ,  that  correspond  to  a  given  diffraction  vector  H  for  a  cubic  crystal  of  specified 
orientation  and  A/2a0.  It  is  used,  for  example,  to  calculate  the  angles  at  various 
checkpoints  to  verify  the  accuracy  of  diffractometer  angle  settings  during  a  series 
of  measurements.  One  enters  first  the  crystal  specifications:  the  components  of  N 
and  P  and  the  constant,  \/2 a0  (see  XTAL).  Then  input  of  any  set  of  components  of 
H  (in  units  of  a0-1)  gives  rise  to  output  of  the  corresponding  values  for  29,  X, 
and  <P  (in  deg),  in  that  order,  and  the  program  jumps  back  to  await  the  next  vector 
As  an  illustration,  we  consider  a  crystal  with  [111]  parallel  to  the  (pax is, 
[211]  up  vertical  to  the  diffraction  plane  when  X  =  <p  =  0 ,  and  with  A/2a0  =  0.23858, 
and  we  want  the  angles  corresponding  to  the  vector,  (HI,  H2,  H3)  =  (2.25,  2.25, 
1.25).  The  TTY  printout  could  look  as  follows: 

111  -211  0.23858^ 

2.25  2.25  1.25  109.300  -13.818  60.000 

where  j  indicates  input  of  the  non-printing  character,  carriage  return. 

The  three  programs  involving  intensity  measurements  all  begin  with  the  same 
initialization,  JMS  I  BASICZ,  in  which  one  first  enters  the  set  of  diffractometer 
angle  limits  (20u,  29^,  Xu,  X^),  then  the  current  diffractometer  angle  settings 
(2e0,  X0 ,  <pQ) ,  and  finally,  the  preset  count  limit.  The  angles  are  in  degrees,  and 
the  preset  count  is  in  units  of  4096  counts.  A  typical  TTY  printout  of  this 
initialization,  with  carriage  returns  to  improve  appearance,  might  look  as  follows: 

160.  5.  16.  -55^ 

120.  0.  0.) 


Program  II  carries  out  step  scan  measurements  with  three  angles  as  variables. 
These  may  be  either  1-D  scans  (e.g. ,  scans  with  a  given  A20),  for  which  SA  =  0330, 
or  2-D  scans  (eg.,  scans  with  a  given  A29,  repeated  w^ith  X  incremented  by  AX),  for 
which  SA  55  0323;  the  different  Start  Addresses  allow  registers  and  switches  to  be 
preset  without  manual  intervention.  After  initialization,  INDTS  is  used  to  enter 
the  scan  data  -  the  number  of  scans  in  the  series,  and  for  each  scan,  the  preset 
time,  the  initial  angle  settings,  the  first  angle  increments,  the  number  of  such 
steps,  and  for  2-D  scans,  the  second  angle  increments,  and  the  number  of  these 
second  steps;  preset  times  are  in  seconds,  and  angles  are  in  degrees.  The  routine 
SCNET  carries  out  the  programmed  series  of  measurements,  outputting  for  each  point 
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the  three  diffractometer  angles  (in  deg)  (sec  1YPEX  for  the  suppression  of  unwanted 
angle  typouts),  the  measured  count,  and  the  count  rate  (counts/sec)  corrected  for 
dead  time.  The  program  then  halts  at  0340.  The  three  angles  controlled  by  this 
program  are  those  whose  negative  and  positive  IOT  step  instructions  are  stored  as 
pairs  in  locations  5370  thru  5375,  given  here  as  the  standard  set,  2A ,  X,  and 
<p.  If  program  control  of  Q  is  needed,  its  pair  of  IOT  instructions  (now  in  5376, 
5377)  must  be  substituted  manually  for  one  of  the  other  pairs  (if  II  replaces 
•P,  one  must  also  change  the  number  in  4753  from  0015  to  0016),  and  one  must  remember 
afterwards  to  reestablish  the  standard  set  expected  in  other  programs.  As  an  illus¬ 
tration,  a  TTY  printout  of  the  data  input  after  initialization  for  a  29  step  scan 
from  97°  to  103°  in  .05°  intervals,  with  10-second  counts  at  each  point,  bracketed 
by  100-second  background  counts  at  the  start  and  finish,  could  look  as  follows: 


3; 

100.  97.  0  0 

10.  97.  0  0 

100.  103.  0  0 


0  0  0 
05  0  0 

0  0  0 


‘X 

V 


The  present  data  storage  (see  INDTS)  will  allow  a  series  of  up  to  15  such  background/ 
scan/background  sets.  A  double  space  separates  the  output  of  each  separate  scan. 

A  single  space  would  separate  the  output  for  each  second  increment  step  in  a  2-D 
scan. 


Program  III  is  similar  to  program  II,  except  that  the  variables  are  the  com¬ 
ponents  of  H  (in  units  of  a0~l)  rather  than  the  three  angles.  One  can  run  a  series 
of  1-D  scans  (linear  scans  in  reciprocal  space),  for  which  SA  =  0351,  or  a  series 
of  2-D  scans  (points  on  planar  nets),  for  which  SA  =  0343.  After  initialization, 
one  first  enters  the  crystal  specifications  (see  program  I  above);  next,  INDTS  is 
used  to  enter  the  scan  data  -  the  number  of  scans  in  the  series,  and  for  each  scan, 
the  preset  time,  the  initial  vector  components  (HI,  H2,  H3),  the  component  increments 
in  step  1,  the  number  of  such  steps,  and  for  2-D  scans,  the  component  increments 
for  step  2,  and  the  number  of  those  second  steps.  The  routine  SCNET  then  carries 
out  the  series  of  measurements,  outputting  for  each  point  the  vector  components 
(HI,  H2 ,  H3),  the  measured  count,  and  the  count  rate  (counts/sec)  corrected  for 
dead  time.  The  program  then  halts  at  0362.  As  an  illustration,  the  TTY  printout 
of  the  data  input  after  initialization  for  a  2-D  rectangular  net  scan  in  the  (110) 
plane  containing  the  (222)  reciprocal  lattice  point  for  the  crystal  specified  in 
program  I,  with  30-second  counts  at  each  point,  could  look  as  follows: 


Program  IV  carries  out  integrated  intensity  scans  with  three  angles  as  vari¬ 
ables.  These  are  2-D  type  scans  as  in  program  II,  but  for  each  second  increment 
step  the  corrected  count  rate  is  summed  over  all  points  in  the  set  of  first 
increment  steps.  This  is  used,  for  example,  to  determine  lattice  parameters  from 
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single  crystal  reflections.  After  initialization,  INDTS  is  used  to  enter  the  scan 
data  -  the  number  of  scans  in  the  series,  and  for  each  scan  in  turn,  the  preset 
time,  the  initial  angle  settings,  the  angle  increments  for  step  1,  the  number  of 
such  steps,  the  angle  increments  for  step  2,  and  the  number  of  these  second  steps. 
Finally,  an  estimate  of  an  integrated  background  rate,  B,  is  entered.  The  routine 
SCINT  then  carries  out  the  series  of  measurements,  outputting  for  each  step  2  in  a 
scan  its  three  initial  angle  settings  (see  TYPEX  for  the  suppression  of  unwanted 
angle  typouts)  and  its  integrated  count  rate,  1,  with  a  final  line  after  each  scan 
giving  first  a  sum  of  products,  (l-B)*A,  over  all  step  2,  next  a  sum  of  (1-B), 
over  all  step  2,  and  then,  from  their  quotient,  an  average  value  for  A,  where  A  is 
a  preselected  angle  given  a  significant  second  increment  (see  SCINT).  After  all 
scans  are  completed  the  program  halts  at  0376.  The  integrated  background,  B,  is  a 
cutoff  value  (the  quantities  (I-B)  are  included  in  the  calculations  only  if  ( I — B ) > 0 ] 
that  applies  to  all  scans  in  the  series,  thus,  the  actual  backgrounds  for  all  the 
scans  in  a  series  should  be  similar  if  this  is  to  be  useful.  The  TTY  printout  of 
the  data  input  after  initialization  differs  from  a  2-D  program  II  printout  only  by 
one  final  entry,  B,  so  an  illustration  is  unnecessary. 


DISCUSSION 

DSP1  was  developed  to  control  a  4-axis  X-ray  diffractometer  in  a  variety  of 
diffuse-scattering  and  integrated-intensity  measurements  on  single  crystal  samples 
where  only  three  axes  are  actually  under  program  control  at  any  one  time.  Control 
of  the  usual  three  axes  -29,  X,  and  <fi  -  was  sufficient  for  most  of  this  work,  and 
the  changes  to  include  fi  in  the  controlled  set  in  place  of  one  of  the  others  could 
easily  be  made  by  hand;  consequently,  we  have  not  tried  to  extend  the  routines 
further.  DSP1  can  also  control  a  variety  of  experiments  on  an  X-ray  powder  diffract¬ 
ometer  (e.g. ,  line  profiles),  though  for  such  cases  one  surely  can  produce  a  signifi¬ 
cantly  smaller  control  package  of  comparable  effectiveness  by  eliminating  the  several 
routines  and  quantities  appropriate  just  to  single  crystal  work. 

The  stepping  of  each  axis  from  one  position  to  the  next  is  done  at  a  constant 
rate,  ~280  steps/sec  (i.e.,  1.4  deg/sec  for  29,  x>  or  51,  and  2.8  deg/sec  for<p), 
with  no  gradual  acceleration  at  the  start  or  deceleration  at  the  finish  (i.e., 
ramping).  Spot  checks  of  angle  positions  during  and  after  runs  over  several  days 
in  our  experiments  showed  that  the  Slo-Syn  motors  were  able  to  respond  at  that  rate 
without  errors.  The  loading  of  the  various  axes  here  was  not  large,  so  if  heavy 
loads  (e.g.,  cryostats)  are  to  be  driven,  one  should  recheck  this  point. 

The  DSP1  programming  is  all  on  a  single  level,  with  no  attempt  to  exploit  the 
computer  interrupt  feature  to  carry  out  two  tasks  "simultaneously,"  such  as  calcula¬ 
tions  and  pulse  counting.  As  the  package  is  now  arranged,  almost  all  of  the  time 
during  pulse  counting  periods  is  spent  idling  (jumping  in  place),  waiting  for  the 
next  clock  flag  interrupt.  That  time  could  be  used  for  other  tasks  by  more  sophis¬ 
ticated  programming,  with  a  possible  increase  in  the  effective  dead  time  as  the 
only  anticipated  drawback.  In  our  uses,  the  non-counting  time  has  been  such  a  small 
fraction  of  the  total  run  time  that  there  has  been  no  incentive  to  try  that  approach, 
but  in  experiments  involving  shorter  measurements  or  longer  calculations,  it  could 
offer  a  significant  improvement. 
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The  present  package  has  reserved  locations  1600  thru  3577  for  storage  of  scan 
data.  This  leaves  more  than  700  locations  in  a  4K  memory  that  are  not  used  or 
reserved  by  DSP1  and  FPP1  and  that  are  available  for  further  data  storage  or  for 
program  additions  and  improvements.  The  user  is  urged  to  regard  this  package  as  a 
flexible  tool,  to  which  additions  and  modifications  should  be  made  freely  to  fit 
changing  needs  and  as  a  rewarding  educational  exercise. 
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/  HEFEH  10  SECOND  INCKEMEN I  ANCLE 


*3600 


36  00 

0000 

COUNT* 

0 

3601 

4317 

JMS  CLEAR 

3602 

4407 

JMS  1  0007 

3603 

5302 

FGET  LOCLK 

3604 

0012 

NEGATE 

360  5 

6  300 

FPU l  CPS 

3606 

0000 

FEXT 

3607 

1217 

TAD  CLKC0 

3610 

3034 

DC A  CLOCK 

361  I 

2302 

ISZ  LOCLK 

3612 

7  000 

NOP 

3613 

30  37 

DCA  DBCNIk 

361  4 

6312 

RTN2* 

6312 

36  1  5 

6001 

K  IN l  # 

ION 

3616 

5216 

JMP  . 

3617 

3620 

CLKC0* 

CLKCT 

3620 

4327 

CLKCT  * 

JMS  CN 1  ADD 

3621 

2302 

ISZ  LOCLK 

3622 

5231 

JMP  CNICK 

3623 

2301 

ISZ  HICLK 

3624 

5231 

JMP  CNICK 

3625 

1230 

CLKSK* 

TAD  CLKC1 

3626 

3034 

DCA  CLOCK 

3627 

5214 

JMP  KTN2 

3630 

36  36 

CLKC1  » 

CN  T  51  P 

3631 

1276 

CNTCK* 

TAD  HICNT 

3632 

1305 

TAD  MAXCI 

36  33 

77  10 

SPA  CL A 

3634 

5214 

JMP  RIN2 

3635 

5225 

JMP  CLKS'W 

3636 

6316 

CNTSTP# 

6316 

36  37 

4327 

JMS  CN  T ADD 

36  40 

l  302 

TAD  LOCLK 

3641 

1304 

TAD  LOT IM 

3642 

3060 

DCA  0060 

3643 

7004 

RAL 

3644 

1301 

TAD  HICLK 

3645 

1303 

TAD  HIIIM 

3646 

3057 

DCA  0057 

3647 

4407 

JMa  I  0007 

3650 

0013 

FLOAT 

3651 

6300 

FPU1  CPS 

3652 

527  5 

FGET  XCNT 

3653 

7000 

FNOR 

36  5  4 

3267 

FMPY  CLKRAT 

3655 

4300 

FDIV  CPS 

3656 

6300 

FPUT  CPS 

36  57 

327  2 

FMPY  DDT  AU 

3660 

0012 

NEGATE 

3661 

17  06 

FADD  I  ENO 

3662 

0014 

INVERT 

366  3 

3300 

FMPY  CPS 

366  4 

6300 

FPUT  CPS 

366  5 

0000 

FEXT 

3666 

5600 

JMP  I  COUNI 

/SET  KEG  I  ST  EKS  FOK  PRESET  1  I ME 


/clear  data  break  counter 

/STAR  I  CLOCK  AND  COUNT 
/IDLING 


/STOP  CLOCK  AND  CCUNI 


/CCUN1  KAIE  <C.P.S.> 

/COUNT  KATE  CORRECTED  FOK  DEAD1 IME 
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I 


3667 

001  1 

CLKRAT  # 

001  1 

3670 

2260 

2260 

367  1 

0000 

0000 

3672 

7757 

DD1AU# 

7757 

367  3 

2061 

2061 

3674 

57  36 

57  36 

367  5 

0027 

XCN I  # 

0027 

3676 

0000 

HICNi# 

0 

3677 

0000 

LOCNI# 

0 

37  00 

0000 

CPS. 

0 

3701 

0000 

HICLK# 

0 

37  02 

0000 

LOCLK# 

0 

37  0  3 

0000 

HI  TIM# 

0 

37  0  4 

0000 

LOTIM# 

0 

37  0  5 

0000 

MAXCI# 

0 

37  06 

5666 

ENO# 

5666 

3707 

0000 

TMLMT* 

0 

37  10 

4407 

JMS  I  0007 

37  1  1 

0010 

0010 

37  12 

3267 

FMPY  CLKRAT 

371  3 

0015 

FIX 

37  1  4 

6435 

FPU  I  I  VI 

37  15 

0000 

FEX1 

3716 

5707 

JMP  I  1MLMI 

37  17 

0000 

CLEAR# 

0 

37  20 

6032 

KCC 

37  21 

6042 

ICF 

37  22 

6344 

6344 

37  23 

327  6 

DCA  HICNI 

3724 

327  7 

DCA  LOCNI 

37  25 

6316 

6316 

37  26 

57  17 

JMP  I  CLEAR 

37  27 

0000 

CN1 ADD# 

0 

37  30 

1037 

TAD  DBCNIR 

3731 

3307 

OCA  IMLM1 

37  32 

1277 

TAD  LOCNI 

37  33 

7  450 

SNA 

37  34 

5343 

JMP  .*7 

37  35 

7141 

CLL  CMA  I AC 

37  36 

1  307 

TAD  1MLMI 

37  37 

7  430 

SZL 

37  40 

5343 

JMP  .*3 

37  41 

2276 

ISZ  HICNI 

37  42 

7000 

NOP 

37  43 

7  300 

CLA  CLL 

37  44 

1307 

1  AD  TMLMI 

37  45 

327  7 

DCA  LOCNI 

37  46 

57  27 

JMP  I  CN I  ADD 

/  300  CLOCK  SIGNALS  PER  SECOND 


/SYSIEM  DEAD  TIME#  PRESEl  HERE 
/AS  4.00  KICkOsECONDS 


✓INPJ1  PKEsE 1  TIME  <SEC.) 


/CLEARS  THE  FOLLOWING : 

/  AC  AND  KEYBOARD  FLAG 

/  IELEPrINIlk  FLAG 

/  EXlEkNAL  EJUIPMuNT 

/  CO JN  T  HI -REGISTER 

/  COUNT  LO-REGISIER 

/  CLOCK  FLAG  AND  SCALER 

/UPDATE  COUNT  REGISTERS 


/WAS  LASI  READING  EERO? 
/YES#  OVERFLOW  NO  I  POSSIBLE 


/NEW  READING  >  OLD? 

/YES#  NO  OVERFLOW 

/NO#  CORRECI  FOR  OVERFLOW 


/STORE  NEW  READING 


4000 

0000 

*4000 

TYPEX# 

0 

4001 

3035 

OCA  VI 

4002 

1035 

1  AL)  VI 

4003 

7041 

CM A  1AC 

4004 

1065 

1  AO  H1Z 

4005 

7640 

SZA  CLA 

4006 

521 1 

JMP  • *3 

4007 

4527 

JMS  1  IYPEVZ 

4010 

5600 

JMP  I  IYPEX 

401  1 

1217 

1  AD  PPKU2 

4012 

3036 

OCA  V2 

401  3 

4526 

JMS  I  TYPEAZ 

401  4 

4526 

JMS  I  IYPEAZ 

4015 

4526 

JMS  I  IYPEAZ 

4016 

5600 

JMP  I  IYPEX 

4017 

47  45 

PPn 1 T2# 

PPRl  l 

4020 

3003 

bciNr# 

0 

4021 

4504 

JMs  I  GINObZ 

4022 

4464 

JMS  I  CkLF 

4023 

3337 

OCA  SUM 3 

4024 

3340 

OCA  SUM3+1 

4025 

3341 

OCA  SUM3+2 

4026 

3342 

DCA  SUM 2 

4027 

3343 

OCA  SUM2* 1 

4330 

3344 

DCA  SUM2*2 

4031 

4515 

SC1N2# 

JMS  1  SFHMIZ 

4032 

107  1 

1  AO  11  HZ 

4033 

4200 

JMS  IYPEX 

40  34 

1055 

TAD  NDIG 

40  35 

1335 

1  AD  EXTRA 

4036 

3055 

OCA  NDIG 

4037 

4522 

JMS  I  TTYOFZ 

4040 

3345 

DCA  SUM 

4041 

3346 

DCA  SUM* 1 

4042 

3347 

OCA  SUM*2 

4043 

1750 

TAD  I  N1NCH2 

4044 

3200 

DCA  IYPEX 

4045 

4517 

SC  IN  1 # 

JMS  I  SIEPZ 

40  46 

4477 

JMS  I  CO UN I Z 

4047 

4407 

JMS  I  0037 

4050 

1345 

FADD  SUM 

4051 

6345 

FPUl  SUM 

4052 

6751 

FPUI  I  CPS2 

4053 

0000 

F  EXT 

4054 

1352 

TAD  D1H1U 

4055 

3036 

DCA  V2 

4056 

107  1 

I  AD  T 1  HZ 

4057 

447  3 

JMS  I  ADDVZ 

4060 

2200 

ISZ  TYPEX 

4061 

5245 

JMP  SC  INI 

4062 

4407 

JMS  I  0037 

406  3 

57  51 

F  GET  1  CP  b2 

4364 

27  36 

FSUb  I  BRGND2 

436  5 

6345 

FPUl  SUM 

4066 

0000 

FEX1 

/OUlPUl  DIFFRAC10ME  IEK  SElllNGS 

/ENIEK  W 1 1 H  H»  IN  AC  IC  OJlPUl 
/RECIPROCAL  SPACE  COORDINATES 


/ENIEk  W I  t  K  IIH  IN  AC  I C  OJlPUl 
/ANGLES  1  WO* { HE I  A#  CHI#  PHI 
/•'JMS  I  IRICRZ"  *  4521  IN  ANY 
/Of  THESE  10  ELIMINA1E  THAI 
/PKIN10UI  (IIH#  CHI#  PHI) 


/1NIEGKAIING  SCAN  KOUlINE 

/SUMS  C0JN1  AS  ANGLE i  b  I  EP  bY 
/INCH.  #t»  OUIPUTS  INI  EGrtAL 

/REPEATS  4  IIH  I N  II  1 AL  ANGLEb 
/SHIFiED  BY  INCH.  #2 


/FINAL  OUJPJU  SUM  Of  PRODUCTS 
/  (  INI  EGRAL  ABOVE  BACKGNU  IlMEa 
/VALUE  Or  ANGLE  GIVEN  INCH.  *2>J 
/SUM  OF  IN  I  EG  HAL  ABOVE  BACKGNDI 
/kAIIO  *  AVERAGE  VALUE  f Ok  ANGLE 
/GIVEN  INCH.  #2 
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1 

1 

4067 

1045 

1  AD  HOaD 

1 

407  0 

77  10 

GPA  CL A 

[1 

407  1 

S334 

JMP  GC1N0 

9 

Adi  2 

4407 

JMG  I  3037 

f 

407  3 

1  342 

F ADD  GUM  2 

|| 

437  4 

6342 

FPUJ  SUM2 

{] 

I 

4375 

57  53 

FGE1  1  ANGX 

11 

i 

4076 

47  54 

FDIV  I  PPKX 

1 

l 

407  7 

47  35 

FDIV  I  KDPDG1 

1 

f 

4100 

3345 

FMPY  GUM 

11 

4101 

1  33/ 

FADD  GUM 3 

I 

4102 

6337 

FPJT  GUM 3 

1 

4103 

0003 

F  EX  1 

II 

4104 

4523 

GCIN0, 

JMG  I  HYCNZ 

11 

4105 

4525 

JMG  I  IYCPG Z 

9 

4106 

446  4 

JMG  I  CRLF 

1 

4107 

1356 

TAD  D2H1U 

41  10 

3336 

DCA  M2 

1 

41  1  1 

1  357 

1  AD  H0  1U 

9 

4112 

447  3 

JMG  I  AUDV Z 

1 

41  1  3 

1357 

TAD  H01U 

n 

41  14 

3036 

DCA  V2 

9 

41  15 

1071 

1  AD  1 1  HZ 

9 

41  16 

4516 

JMG  I  GHFWZ 

9 

41  1  7 

27  60 

IGZ  I  N2NCR2 

9 

4120 

5231 

JMP  GCIN2 

9 

4121 

4407 

JMG  I  0007 

■*i 

4122 

5337 

FGET  GUM 3 

9 

4123 

4342 

FDIV  GUM2 

9 

4124 

6345 

FPUT  GUM 

9 

4125 

0000 

FEXT 

9 

4126 

1  361 

TAO  SUM3P 

9 

4127 

4527 

JMG  I  IYPEVZ 

1 

4130 

4515 

JMG  1  SFRMIZ 

4131 

4464 

JMG  I  CKLF 

9 

4132 

2762 

IGZ  I  HNCNfl 

4133 

5221 

JMP  GC IN  I ♦ 1 

9 

41  34 

5620 

JMP  I  GCINT 

4135 

0010 

EX  1 RA# 

0010 

9 

4136 

4474 

BKGNU2* 

BKGND 

9 

41  37 

0000 

GUM3# 

0 

9 

41  40 

0000 

0 

1 

4141 

0000 

0 

41  42 

0000 

GUM2» 

0 

I 

4143 

0000 

0 

1 

41  44 

0000 

0 

I 

4145 

0000 

GUM* 

0 

I 

41  46 

0000 

0 

1 

41  47 

0000 

0 

1 

4150 

4554 

N1NCH2* 

N1NCR 

1 

4151 

3700 

CPG2* 

CPG 

4152 

4543 

D 1  HI U* 

D1H1 

4153 

4767 

ANGX# 

T  TH0 

/(CHI0 >*  <  PH  10 ) 

I 

41  54 

47  45 

PPKX* 

PPRT  1 

/ < PPKCH )*  (PPKPH) 

1 

4155 

5022 

RDPDG1  , 

HDPDEG 

I 

16 

J 

T 


41 56 

4566 

D2HIU* 

02H1 

4157 

4555 

H01U* 

H0I 

4160 

4577 

N2NCK2* 

N2NCK 

4161 

41  37 

SUM3P* 

SUM  3 

4162 

4261 

RNCNT  1  * 

RNCNT 

4163 

0000 

BASIC* 

0 

4164 

4476 

JMS  I  CLEARS 

4165 

4501 

JMS  I  DFLM1Z 

4166 

1 07  2 

TAD  I 1 H0Z 

4167 

4512 

JMS  I  NSIASZ 

417  0 

437  3 

JMS  C1LM1 

417  1 

4515 

JMS  1  sfrmtz 

4172 

576  3 

JMP  I  BASIC 

4173 

0000 

CTLM1* 

0 

417  4 

4507 

JMS  I  RCOMl* 

417b 

37  7  7 

DCA  I  MAXClt 

4176 

5773 

JMP  I  CTLMT 

4177 

3705 

MAXCI  1  * 

MAXCI 

*4200 

4200 

0000 

RCOMl* 

0 

4201 

4407 

JMS  1  0007 

4202 

0010 

0010 

4203 

0015 

FIX 

4204 

0000 

FEXT 

420  5 

1046 

TAD  LORD 

4206 

7041 

CM A  I AC 

4207 

5600 

JMP  I  RCOMl 

4210 

0000 

RS  I  AS* 

0 

421  1 

7  440 

SEA 

4212 

3035 

DCA  VI 

421  3 

1221 

JAD  PPRT 13 

421  4 

3036 

DCA  V2 

4215 

4510 

JMS  I  READA* 

4216 

4510 

JMS  I  READA* 

4217 

4510 

JMS  I  READA* 

4223 

56  10 

JMP  I  RSI  AS 

4221 

47  45 

PPRIT3* 

PPRIT 

4222 

0000 

INDTS* 

0 

4223 

3260 

DCA  DIMSW 

4224 

4200 

JMS  RCOMl 

4225 

3262 

DCA  G 1 NDs 

4226 

1262 

TAD  GTNDS 

4227 

3261 

DCA  RNCN1 

4230 

1067 

1  AD  STORE* 

4231 

3035 

DCA  VI 

4232 

1066 

1  AD  I STORE 

4233 

3321 

DCA  SCNEI 

4234 

4520 

INDT  I* 

JMS  I  TMLMT* 

4235 

4521 

JMS  I  IklCR* 

4236 

4657 

JMS  1  SWADD 

4237 

4657 

IND12* 

JMS  I  SWADD 

4240 

4200 

JMS  RCOMl 

424) 

3721 

DCA  I  SCNEI 

4242 

2321 

ISZ  SCNEI 

4243 

2260 

IS*  DIMSW 

/BASIC  SlARlOP  KOUllNE 

/II  HU#  1 1 HL*  CHIU*  CHIL  (DEG. > 

/1IH0*  CH 10*  PH10  (DEG.) 
/PkEbEI  COUNT 


/ 1 NPU I  PkEsET  COUNT  (UNI  is  4096) 
/NUMBER  SHOULD  BE  <  204B 


/READ*  COMPLEMENi  IN  1  EGER  (<4096> 
/EXIT  WIIH  COMPLEMEN1  IN  AC 


/READ*  STORE  ANGLE  SET 


/ 1NPU I  DAI  A  St  I  a 

/AC  =  7777  FOR  2-D  CASES 

/NO.  OF  DA  I A  SETS 


/PKESEI  I IME  (SEC.) 

/STARTING  VALUES 
/ INCREMENT  S 
/NO.  OF  STEPS 


/SECOND  INCREMENTS? 
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42*4 

5250 

JMP  •  ♦  4 

/NO 

4245 

7  344 

CLA  CLL  CM A  kAL 

/  YEb 

4246 

3260 

DC A  DlMbW 

4247 

5237 

JMP  1NDI2 

4250 

226  2 

IbZ  GTNUb 

/MCKE  DAI  A  bElb? 

^51 

5234 

JMP  IND1 1 

/YEb 

4252 

1066 

1  AD  IblCKZ 

/NC»  FINISHED 

4253 

3200 

DCA  KCCMl 

/ SE 1  POINIEKS 

4254 

1067 

TAD  bTOKEZ 

4255 

3210 

DCA  Kb  1  AS 

4256 

5622 

JMP  I  INDTS 

4257 

0000 

b-VADD# 

0 

/  Sj7  I  1  CH  ADLKEbb 

4260 

0000 

DIMb*l* 

0 

4261 

0000 

KNCNTj 

0 

4262 

0000 

G  1  NDS* 

0 

/GEI  NEXI  DA  1  A  St  1 

426  3 

7  440 

SZA 

4264 

3257 

DCA  SWADU 

426  5 

1210 

1  AD  Kb  1  AS 

4266 

3036 

DCA  V  2 

4267 

4407 

JMb  1  0007 

4270 

5436 

FGE1  1  V2 

427  1 

6  7  20 

FPU1  I  LCCLK1 

4t?7  2 

0000 

FEX1 

427  3 

4521 

JMb  I  TKICKZ 

427  4 

1257 

TAD  b*!AUL 

427  5 

4516 

JMS  I  SHF  1  VZ 

427  6 

1  37  4 

1  AD  D1H1 T 

427  7 

4516 

GT  NO  1  • 

JMb  I  SHF  1 VZ 

4300 

1600 

TAD  I  KCOMI 

4301 

3435 

DCA  1  VI 

4302 

2200 

1SZ  RCOMI 

4303 

2035 

ISZ  VI 

4304 

1036 

TAD  V2 

4305 

3210 

DC A  KSJAb 

4306 

2260 

ISZ  DIMbW 

/SECOND  INCKEMENlb? 

4307 

5662 

JMP  I  GTNDS 

/NO 

4310 

1257 

1  AD  SW ADD 

/yes 

431  1 

3036 

DCA  V 2 

4312 

4516 

JMb  I  SHF  1  V Z 

431  3 

7  344 

CLA  CLL  CM A  HAL 

431  4 

3260 

DCA  DIMS*! 

431  5 

1210 

1  AD  KblAb 

4316 

3036 

DCA  V  2 

4317 

527  7 

JMP  G1ND1 

4320 

3702 

LOCLKI * 

LOCLK 

4321 

0000 

SCNE  T , 

0 

/SCAN  ON  1  -D  Ok  2-D 

4322 

426  2 

JMS  G1NDS 

4323 

4464 

JMb  1  CKLF 

4324 

5331 

JMP  • *5 

4325 

1  373 

SCNI2/ 

TAD  H01 1 

4326 

3036 

DCA  V 2 

4327 

1257 

1  AD  S*! ADD 

4330 

4516 

JMb  I  bHFIVZ 

4331 

4464 

JMb  I  CKLF 

4332 

1775 

1  AD  I  N1NCKI 

4333 

3222 

DCA  1MD 1 S 
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4334 

447  4 

SCNT 1 « 

JM5  1  ANULEZ 

/"NOP"  FO*  ANGLE  NE I 

433b 

4506 

JMS  I  LIMITZ 

4336 

5356 

JMP  5CNJ0 

4337 

4517 

JMS  I  S1EPZ 

4340 

4522 

JMS  1  1  I YOFZ 

4341 

4477 

JMS  I  COUNIZ 

4342 

4523 

JM5  I  T1Y0NZ 

4343 

1257 

1  AD  SdADD 

4344 

45  30 

JMS  I  1YPEXZ 

4345 

4524 

JM5  I  1YCN1Z 

4346 

4525 

JMS  I  iYCPSZ 

4347 

4464 

JMS  I  CHLF 

4350 

137  4 

t  AD  D1H1  1 

4351 

3036 

DCA  V2 

4352 

1257 

TAD  SWADD 

4353 

447  3 

JMS  I  ADDVZ 

4354 

2222 

I sZ  INDIS 

4355 

5334 

JMP  SCN 1 1 

4356 

2260 

SCNT0# 

1SZ  DIMS*) 

4357 

5370 

JMP  G0NX1 

4360 

7040 

CM  A 

4361 

3260 

DCA  D1MSW 

4362 

1  376 

1  AD  D2H1T 

4363 

3036 

DCA  V2 

4364 

1  37  3 

TAD  H0 1 1 

436  5 

447  3 

JMS  I  ADDVZ 

4366 

2777 

ISZ  I  N2NCH1 

436  7 

5325 

JMP  SCN 12 

437  0 

2261 

G0NX1  » 

ISZ  HNCNI 

/ALL  DATA  sEIS  DONE? 

437  1 

5322 

JMP  SCNE 1  *  1 

/NO 

4372 

5721 

JMP  1  SCNE  1 

/YES 

437  3 

4555 

H0 1  T# 

K01 

437  4 

4543 

DIH1  ft 

D1H1 

437  5 

4554 

N  INCH  I  , 

N1NCH 

437  6 

4566 

D2H 1  1  * 

D2H 1 

437  7 

4577 

N2NCH1  • 

N2NCK 

*4400 

4400 

0000 

X  1  AL  j 

0 

/INPU1  CKYS1AL  DAiA 

4401 

127  2 

1  AD  Nil 

4402 

3321 

DCA  1  1 

4403 

7  1  44 

CLL  CMA  HAL 

4404 

3322 

DCA  r 1 ♦ 1 

4405 

1  321 

I  AD  l  1 

/INPJ1  AND  NOHMALIZE  Nli  N2# 

4406 

5212 

JMP  « ♦ 4 

4407 

0000 

L02A, 

0 

/LAMbDA/24  SlCKAGE*  FOR  EASY 

4410 

0000 

0 

/ADDHESS 

441  1 

0000 

0 

4412 

451  1 

JMS  I  HEADVZ 

441  3 

1321 

1  AD  1  1 

441  4 

3035 

DCA  VI 

441  5 

1035 

1  AD  VI 

4416 

3036 

DCA  V2 

441  7 

46  7  3 

JMS  I  MPYV1 

4420 

4407 

JMS  I  0007 

4421 

0002 

5UK00 1 

4422 

6324 

F PU  J  12 

442  3 

0300 

FEX1 

4424 

1321 

14D  1  1 

442S 

4502 

JM5  I  DO  3AZ 

4426 

4407 

JM6  I  0037 

4427 

5435 

FGEI  I  VI 

4433 

4324 

FUIV  12 

4431 

6435 

FPUl  1  VI 

4432 

0000 

FEX  I 

4433 

4503 

JM5  I  003BZ 

4434 

10  35 

IAD  VI 

/1NPU1 

AMD 

NCnMALIZE  PI* 

4435 

3321 

DCA  11 

4436 

2322 

150  I1M 

4437 

5235 

JMr*  XTAL+5 

4440 

4407 

JM5  1  3001 

/CAUCJLAtE 

1  1  *  12*  13 

4441 

5302 

FGEI  N2 

4442 

3316 

FMPY  P 3 

4443 

6  321 

FPU  1  1) 

4444 

5305 

FUE  J  M3 

4445 

3313 

FMPY  P2 

4446 

2321 

FsUB  i  1 

4447 

6321 

FPUl  11 

4453 

5305 

r'GEl  M3 

4451 

3310 

FMPY  PI 

4452 

6324 

FPJi  12 

4453 

527  7 

FGEI  Ml 

4454 

3316 

FMPY  P3 

4455 

2324 

F5<J«  12 

4456 

6324 

FPUl  12 

4457 

5277 

FGEI  N 1 

446  0 

331  3 

FMPY  P2 

4461 

6  32  7 

FPJI  13 

446  2 

5302 

FGEI  N2 

4463 

3310 

FMPY  PI 

446  4 

2327 

F50B  13 

4465 

6327 

FPUl  13 

4466 

0010 

0010 

✓  I.VPU1 

LAMBDA/2A 

4467 

6207 

FPUl  L02A 

447  0 

0000 

FEX  1 

447  1 

5600 

JMP  1  XI AL 

447  2 

4477 

NIT* 

N 1 

447  3 

467  1 

MP  YV  1  » 

MPYV 

447  4 

0000 

BXGNU, 

0 

447  5 

0003 

0 

447  6 

0000 

0 

447  7 

0000 

Nt  * 

0 

4530 

0003 

0 

4501 

0000 

0 

4532 

0033 

N2» 

0 

4503 

030.3 

0 

4534 

0000 

0 

4535 

0000 

N3» 

0 

4536 

000.3 

0 

453  7 

0000 

0 
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45  1 0 

0000 

P  1  • 

0 

451  1 

0000 

0 

4512 

0030 

0 

451  3 

000.3 

P2> 

0 

4514 

0000 

0 

4515 

0000 

0 

4516 

0000 

P3> 

0 

4517 

0000 

0 

4520 

0000 

0 

4521 

0000 

n  # 

0 

4522 

0000 

0 

4523 

0000 

0 

4524 

0030 

12# 

0 

4525 

0000 

0 

4526 

0000 

0 

4527 

0000 

1  3# 

0 

4533 

0000 

0 

4531 

0000 

0 

45  32 

0000 

HI  # 

0 

45  33 

0000 

0 

4534 

0000 

0 

4535 

0000 

H'2# 

0 

4536 

0000 

0 

45  37 

0000 

0 

4540 

0000 

H3» 

3 

4541 

0000 

0 

4542 

0000 

0 

4543 

0000 

D1  HI  # 

0 

4544 

0000 

0 

45  45 

0000 

0 

4546 

0003 

D  1  H2» 

0 

454/ 

0000 

0 

4550 

3000 

0 

4551 

0000 

D  1  H3# 

0 

4552 

0000 

0 

4553 

0030 

0 

4554 

0000 

NINCk* 

0 

4555 

0000 

H0  1  • 

0 

4556 

0000 

0 

4557 

0000 

0 

4560 

0000 

H02» 

0 

456  1 

0000 

0 

4562 

0000 

0 

456  3 

3300 

H03> 

0 

4564 

0003 

0 

4565 

0000 

3 

4566 

0000 

D2H  1  $ 

0 

456/ 

0000 

0 

4570 

0000 

0 

457  1 

0000 

D2H2» 

0 

457  2 

0000 

0 

457  3 

0000 

0 

457  4 

0000 

U2H3# 

0 

457  5 

0000 

0 

4576 

0000 

0 

4577 

0000 

N2NCK# 

0 
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4603 

0000 

*4600 

ANGLE# 

0 

4601 

126  4 

TAD  NIP 

4602 

30  35 

DCA  VI 

4603 

4307 

JMS  MPYVH 

460  4 

4665 

JMS  I  AMN l 7 

4605 

4314 

JMS  FCMIN 

4606 

4407 

JMS  I  0007 

4607 

6  361 

FPU  1  CHI 

4610 

0000 

FEX  1 

461  1 

4307 

JMS  MPYVH 

4612 

4665 

JMS  I  AMN 1 7 

461  3 

4314 

JMS  FCMIN 

4614 

4407 

JMS  I  0007 

4615 

6356 

F  PUT  IIH 

46  1  6 

0001 

SUUAKE 

4617 

6364 

FPJT  PHI 

4620 

0000 

FEXI 

4621 

4307 

JMS  MPYVH 

4622 

4407 

JMS  I  0007 

4623 

6266 

F  PUT  Y 

46  24 

0001 

SUUAKE 

4625 

1364 

FADD  PHI 

4626 

0002 

SJROOi 

4627 

4361 

FDIV  CHI 

46  30 

0005 

ARCT4N 

4631 

3350 

FMPY  PPKCH 

46  32 

0000 

FEXI 

46  3  3 

1357 

TAD  I1H+1 

4634 

77  10 

SPA  CLA 

4635 

466  3 

JMS  I  ACNEG7 

4636 

4407 

JMS  I  0007 

4637 

636  1 

FPU  1  CHI 

46  40 

5266 

FGE 1  Y 

4641 

4356 

FDIV  TIH 

4642 

0005 

AKC1 AN 

4643 

3353 

FMPY  PPRPH 

46  44 

0012 

NEGATE 

46  45 

6  36  4 

FPJT  PHI 

46  46 

0000 

FEXI 

46  47 

4307 

JMS  MPYVH 

4650 

4407 

L02A1# 

JMS  I  0007 

4651 

0002 

SOROOT 

46  52 

3650 

FMPY  I  L02A1 

4653 

0000 

FEXI 

46  5  4 

4321 

JMS  ARCSIN 

4655 

2044 

ISZ  EXP 

4656 

7001 

SMALL# 

7001 

46  57 

4407 

JMS  I  0007 

4660 

3345 

FMPY  PPRTT 

466  1 

6356 

FPU  1  IfH 

4662 

0000 

FEXT 

46  6  3 

5600 

ACNEG7# 

JMP  I  ANGLE 

466  4 

4477 

NIP# 

N 1 

4665 

66  55 

AMN17# 

6655 

/CALCULATE  SHAFT  ANGLES  FOR 
/A  GWEN  VECIOK  H 


/CHI  CMCICk  SlEPx) 

/PHI  (MOIOK  S I  EPS ) 

/AN  ADDRESS#  NO  EFFECT  ON  CALC 

/IrfO-THEJA  (MOIOK  SIEPS) 
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4666 

0000 

Y* 

0 

46  6  7 

0000 

0 

4670 

0000 

0 

467  1 

0000 

MPYV* 

0 

4672 

3044 

DCA  EXP 

467  3 

3045 

DCA  HORD 

467  4 

30  46 

DCA  1  ORD 

467  5 

4502 

JMS  I  D03AZ 

4676 

4407 

JMS  I  000/ 

467  7 

6706 

F  PUT  I  XI 

47  00 

5435 

FGE 1  1  VI 

47  01 

3436 

FMPY  I  V 2 

4702 

17  06 

FADD  I  XI 

4703 

0000 

FEX1 

47  0  4 

4503 

JMS  I  D03BZ 

4705 

567  1 

JMP  I  MPYV 

4/ 06 

57  34 

XI  * 

57  34 

47  07 

0000 

MPYVH* 

0 

47  10 

1065 

LARGE* 

TAD  H1Z 

47  1  1 

30  36 

OCA  V2 

47  12 

42  7  1 

JMi  MPYV 

47  1  3 

5707 

JMP  I  MPYVH 

47  1  4 

0000 

fcmin* 

0 

47  1  5 

4407 

JM5  I  0007 

47  16 

56  56 

FGE 1  I  SMALL 

47  17 

0000 

F  EX  1 

47  20 

57  1  4 

JMP  I  FCM1N 

47  21 

0000 

ARCSIN* 

0 

47  22 

1044 

TAD  EXP 

47  23 

7  7  40 

SMA  SZA  CLA 

47  2  4 

5340 

JMP  UNREAL 

47  25 

4407 

JM5  I  0007 

47  26 

6266 

F  PU1  Y 

47  27 

3266 

fmpy  y 

47  30 

00  12 

NEGA1E 

47  31 

1  7  44 

FADD  I  E IN 

47  32 

0002 

SUKOC1 

47  33 

0014 

INVERI 

47  34 

3266 

FMPY  Y 

47  35 

0005 

ARC  IAN 

47  36 

0000 

FEXI 

47  37 

5721 

JMP  I  ARCS  IN 

47  40 

4407 

UNREAL* 

JMS  I  0007 

47  41 

5310 

FGET  LARGE 

47  42 

0000 

FEX  1 

47  43 

5721 

JMP  I  ARCS  IN 

47  44 

5666 

E  IN* 

5666 

47  4S 

00  16 

PPRI  1* 

0016 

47  46 

26  30 

26  30 

47  47 

31  17 

31  17 

47  50 

0016 

PPRCH* 

0016 

47  51 

26  30 

26  30 

47  52 

31  17 

31  1  7 

47  5  3 

0015 

PPRPH* 

0015 

47  54 

26  30 

26  30 

47  55 

31  17 

31  17 

/MAKES  SCALAR  PN0DJC7  OF  VECTCfO 
/WITH  ADDRESSE S  IN  VI  AND  V 2 


/SEI  f AC  =  2**-128 

/ARCSINE 

/IF  F AC  >  1#  sEi  FAC  =  2**56s 


/<200*  I  80/PI  ) 

/(200*180/P1 ) 

/<100*180/PI  ) 
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47  56 

0330 

1  T  H» 

0 

47  57 

0000 

0 

4?  60 

0000 

0 

4761 

0000 

CHI# 

0 

4762 

0000 

0 

47  6  3 

0000 

3 

4764 

0000 

PHI# 

0 

4765 

0000 

3 

4766 

0000 

0 

47  6  7 

0000 

I  IH0# 

0 

4773 

0030 

0 

47  7  1 

0000 

0 

4772 

0000 

CH 10# 

0 

477  3 

0000 

0 

47  7  4 

0000 

0 

47  7  5 

0000 

PH  10# 

0 

4776 

0000 

0 

4777 

0000 

*5000 

0 

5000 

0000 

THICK# 

0 

/ 1 n  I  CkEMENT  5  VI  AND  M2 

5001 

1035 

TAD  V) 

5002 

1210 

TAO  C3 

5003 

3035 

OCA  VI 

5004 

1036 

f  AD  V2 

5005 

1210 

1  AD  C3 

5006 

3036 

DCA  V2 

5007 

5600 

JMP  I  1KICH 

5010 

0003 

C3# 

0003 

5011 

0000 

KEADA, 

0 

/INPUT  ANGLE  (OEG. >#  CCNVEKl  10 

5012 

4407 

JMS  I  0007 

/MOTOR  51  EPS#  AND  STOkE 

5013 

0010 

0010 

5014 

3436 

FMPY  1  M2 

5015 

3222 

FMPY  KDPDEG 

5316 

6435 

FPJ1  I  MX 

5017 

0030 

F  EXT 

5020 

4200 

JMS  THICK 

5321 

56  1  1 

JMP  1  KEADA 

5022 

7773 

KDPDEG  # 

7  773 

/CPI/180) 

50  23 

2167 

2167 

5024 

6432 

6432 

5025 

0000 

TYPEA# 

0 

/CONVtKl  ANGLE  FROM  MOTOR  5TEPS  10 

5026 

4407 

JMS  1  0007 

/DEGREES  AND  OUTPUT  IT. 

5027 

5435 

F(iE  1  I  VI 

5030 

4436 

FDIV  I  V2 

5031 

4222 

FD IV  ROPDEG 

5032 

001  1 

001  I 

5033 

0000 

FEX1 

5034 

4200 

JMS  THICK 

5035 

5625 

JMP  I  TYPEA 

5036 

0000 

DFLMT# 

0 

/INPUT  0 IFF KAC TOME I EH  LIMITS* 

5037 

1254 

I AD  PPH 1 1 l 

/ 1 T  H J#  ITHL#  CHIU#  CHIL  (OEG*) 

5040 

3036 

OCA  M2 

5041 

1255 

I  AO  ITHUI 

5042 

3035 

OCA  VI 

5043 

421  1 

JMS  HEAOA 

24 
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54)44 

1254 

1  AO  PPRl  1 1 

5045 

30  36 

OCA  V  2 

5046 

421  1 

JM5  READA 

5047 

421  1 

JM5  KEADA 

5050 

1256 

1  AD  PPRCH1 

5051 

3036 

OCA  V  2 

5052 

421  1 

JMa  RE4DA 

5053 

56  36 

JMP  I  DFLM1 

5054 

47  45 

PPRl lit 

PPKl  1 

5055 

5232 

11  HU 1 » 

11  HU 

5056 

47  50 

PPHCH1 # 

PPkCH 

5057 

0000 

0 

5060 

0000 

0 

5061 

0000 

0 

5062 

0000 

aF  KM1 t 

0 

5063 

127  1 

1  AD  NO 

5064 

3054 

OCA  0054 

506  5 

127  2 

1  AD  NI 

5066 

3055 

OCA  00a5 

5067 

306) 

DCA  0061 

507  0 

5662 

JMP  !  5FRMI 

507  1 

0003 

NO# 

0003 

50  7  2 

0010 

Ni  t 

0010 

507  3 

0000 

1 YCP5* 

0 

50  7  4 

4407 

JM5  I  0007 

507  5 

5701 

FG El  I  CPbl 

50  7  6 

001  1 

001  1 

507  7 

0000 

FEX  1 

5100 

5673 

JMP  I  rYCHb 

5101 

37  00 

CP51  » 

CP5 

5102 

0000 

TYCNT# 

0 

5103 

3054 

OCA  0054 

5104 

4407 

JM5  1  0007 

5105 

57  13 

FGE 1  I  XCNI 

5106 

7  000 

FNCFt 

5107 

001  1 

001  1 

51  10 

0000 

FEX  1 

51  I  1 

426  2 

JM5  5FNMI 

51  12 

57  02 

JMP  I  IYCN1 

51  13 

3675 

XCNI l» 

XCN1 

51  14 

0000 

00  3A* 

0 

51  15 

7  440 

5ZA 

51  16 

3035 

OCA  VI 

51  17 

7  1  46 

CLL  CMA  KJL 

5120 

3327 

DCA  DOCNI 

5121 

57  14 

JMP  1  00 3A 

5122 

0000 

D03B# 

0 

51  23 

4200 

JM5  IKICK 

5124 

2327 

IaZ  00 CN I 

5125 

57  14 

JMP  I  00 3A 

5126 

5722 

JMP  I  00 3B 

5127 

0000 

DOCNI# 

0 

5130 

0000 

KEADV# 

0 

5131 

431  4 

JM5  00 3A 

5132 

4407 

JMS  I  0007 

5133 

0010 

0010 

/UNU5ED 

/i£l  alANOAKD  0J1  PJ  J  F CNMA  i  t 
/F 8.3*  NC  FOLLOWING  CK-LF 

/OUIPU1  COUN)  kA 1 E 

/OUIPUI  COUN  I  CFOKMAI  18) 

/KEbEl  10  6 1 ANDAPD  FCKMAl 
/ I HKEE  CYCLE  DO-LOOP 


/INPU1  VECIOK  (3  COMPONENT) 
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51  34 

6  435 

FPUI 

I  VI 

5135 

0000 

FEXT 

5136 

4322 

JMS 

DO  3  b 

51  3T 

57  33 

JMP 

I  READY 

5140 

0003 

SHF  I  V  * 

0 

5141 

4314 

JMS 

DO  3  A 

5142 

4437 

JMS 

I  0007 

5143 

5436 

FGET 

I  V2 

5144 

6435 

FHJI 

I  VI 

5145 

0000 

FEXT 

5146 

4322 

JMs 

DC3rt 

51  47 

57  40 

JMP 

I  SHF  IV 

5150 

0000 

I  YPEV# 

0 

5151 

4314 

JMS 

D03A 

5152 

4407 

JMS 

I  0007 

5153 

5435 

fgei 

I  VI 

51  54 

001  1 

0011 

5155 

0000 

FEX1 

5156 

4322 

JMS 

DO  3B 

5157 

57  S0 

JMP 

I  TYPEV 

5160 

0000 

AUDV# 

0 

5161 

4314 

JMS 

D03A 

5162 

4407 

JMS 

I  0007 

5163 

5435 

FGEI 

I  VI 

5164 

1436 

FADD 

1  V2 

5165 

6435 

FPJ1 

I  VI 

5166 

0000 

FEXT 

5167 

4322 

JMS 

D03b 

5170 

5760 

JMP 

I  ADDV 

517  1 

0000 

i r YOF# 

0 

5172 

6351 

6351 

5173 

1376 

TAD 

TMLAG2 

5174 

47  7  7 

JMS 

I  PAWS1 

5175 

577  1 

JMP 

I  1 1 YOF 

5176 

7  400 

TML4G2# 

7  400 

5177 

5354 

PM  SI# 

PAWS 

*5200 

5200 

0000 

LIMIT# 

0 

5201 

4437 

JMS 

I  0007 

5202 

5232 

FGET 

T  I  HU 

5203 

2471 

FSUb 

I  MHZ 

5204 

66  30 

FPUI 

I  I  MP3 

520  S 

547  1 

FGEI 

I  IT  HZ 

5206 

2235 

FSUH 

I  1  HL 

5207 

36  30 

fmpy 

1  TMP3 

5210 

0000 

FEXT 

521  1 

1045 

i  AO 

HO  kU 

5212 

7710 

SPA 

CL  A 

5213 

5600 

JMP 

1  LIMIT 

5214 

4407 

JMS 

I  0007 

5215 

5240 

FGEI 

CHIU 

5216 

2631 

FS'Jb 

I  CHI  1 

5217 

66  30 

FPUI 

I  I  MP3 

5220 

56  31 

FGET 

I  CHI  1 

/ SHIFT  VECTOR 

/OUTPUl  VECIOk 

/ADD  TWO  VECTORS 

/IUkN  I  I Y  OFF 

/WAII  ONE  SECOND 

/I  ES'I  IF  TTH  AND  CHI  ARE  WI1HIN 
/SPECIFIED  LIMITS.  IF  NO#  EXII 
/NOKMALLY.  IF  YES#  EXII  10 
/SECOND  INS  I ROC  1  ION. 
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5221 

2243 

F SUB  CHIL 

5222 

36  30 

FMPY  I  7MP3 

5223 

0000 

FEX1 

5224 

1045 

(AO  HOKD 

5225 

77  00 

SMA  CLA 

5226 

2200 

ISZ  LIMIT 

5227 

5600 

ACNEG6  * 

JMP  I  LIMIT 

5230 

57  45 

TMP3* 

57  4S 

5231 

4761 

CH 1 1 » 

CHI 

5232 

0000 

1  THU* 

0 

5233 

0000 

0 

5234 

0000 

0 

5235 

0000 

T  THL* 

0 

5236 

0000 

0 

5237 

0000 

0 

5240 

0000 

CHIU* 

0 

5241 

0000 

0 

5242 

0000 

0 

5243 

0000 

CH1L* 

0 

5244 

0000 

0 

5245 

0000 

0 

5246 

0000 

S1EP* 

0 

5247 

1070 

TAD  1 1HNPZ 

5250 

3200 

OCA  L1MI1 

5251 

1072 

1 AD  T1H0Z 

5252 

3036 

OCA  V2 

5253 

107  1 

1  AD  KHZ 

5254 

4502 

JMS  I  D03AZ 

5255 

4407 

JMS  I  0007 

5256 

5435 

FGE1  I  VI 

5257 

2436 

F SUB  I  V2 

5260 

0015 

FIX 

5261 

66  30 

FPJI  I  I MP3 

526  2 

7  000 

FNOR 

5263 

1  436 

FADD  I  V 2 

5264 

6436 

FPU I  I  V2 

5265 

56  30 

FGEI  I  T MP3 

5266 

0000 

FEXI 

5267 

427  2 

JMS  MOVE 

527  0 

4503 

JMS  I  D03BZ 

527  1 

56  46 

JMP  I  STEP 

527  2 

0000 

MOVE* 

0 

527  3 

4731 

JMS  I  AMN16 

527  4 

5326 

JMP  NOGO 

527  5 

1045 

TAD  HORO 

5276 

7700 

SMA  CLA 

5277 

5303 

JMP  .*4 

5300 

4332 

JMS  RUNOVR 

5301 

7040 

CM  A 

5302 

5305 

JMP  .*3 

5303 

2200 

ISZ  LIMIi 

5304 

4627 

JMS  I  ACNEG6 

5305 

30  44 

OCA  EXP 

5306 

1600 

TAD  I  LIMII 

5307 

3312 

DCA  PULSE 

/MOVE*  (AN  I  I  BACKLASH)  THREE  AXES 
/IO  NEW  ROSII IONS 


/AB-MOVE  AXIS  <HOkD*LORD>  alEPS 
/IS  FAC  =  0? 

✓  YES*  NO  MO  I  ION 


/FAC  <  31  OVERRUN  AND  RUNBACK 


/FAC  >  0 

/AB  RUNBACK  SWIJCH 
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5310 

7410 

SKP 

531  1 

4345 

JMS  W A  I  1 

5312 

0000 

PULSE* 

0 

5313 

2046 

ISZ  LOKD 

5314 

531 1 

JMP  PULSE- 1 

5315 

2045 

ISZ  HOkU 

5316 

531  1 

JMP  PULSE- 1 

S317 

2200 

ISZ  LIMI1 

5320 

20  44 

ISZ  EXP 

5321 

567  2 

JMP  I  MOVE 

5322 

1276 

1  AD  MOVE+4 

5323 

4354 

JMS  PAWS 

5324 

4332 

JMS  KUNOVK 

5325 

5306 

JMP  PULSE -4 

5326 

2200 

NOGO* 

ISZ  LIMIT 

5327 

2200 

ISZ  LIMIT 

5330 

5672 

JMP  I  MOVE 

5331 

6655 

AMNT6* 

6655 

5332 

0000 

KUNOVK* 

0 

5333 

7  300 

CLA  CLL 

5334 

1344 

1  AD  M40 

5335 

1046 

1  AD  LOKD 

5336 

3046 

DCA  LOKD 

5337 

7  420 

5NL 

5340 

7040 

CMA 

5341 

1045 

1  AD  HOKD 

5342 

3045 

DCA  HOKD 

S343 

57  32 

JMP  I  KUNOVk 

5344 

77  30 

M40* 

7/30 

5345 

0000 

WAIT. 

0 

5346 

1353 

I  AD  NWAI 1 

5347 

3047 

DCA  0VEK2 

5350 

2047 

ISZ  0VEK2 

5351 

5350 

JMP  .-1 

5352 

57  45 

JMP  I  WAU 

5353 

6400 

N'WA  IT* 

6400 

5354 

0000 

PAWS* 

0 

5355 

3332 

DCA  RUNOVk 

5356 

4345 

JMS  WAU 

5357 

2332 

ISZ  KUNOVK 

5360 

5356 

JMP  .-2 

5361 

57  54 

JMP  I  PAWS 

5362 

0000 

1 I  YON. 

0 

5363 

6352 

6352 

536  4 

1367 

1  AD  TMLAG 

5365 

4354 

JMS  PAWS 

5366 

57  62 

JMP  I  1 1  YON 

5367 

7  400 

TMLAG* 

7  400 

5370 

6  322 

II HNP, 

6322 

537  1 

6321 

6321 

537  2 

6  334 

CHINP* 

6334 

5373 

6332 

6332 

537  4 

6342 

PHINP* 

6342 

537  5 

634) 

6341 

5376 

6331 

OMGNP* 

6331 

537  7 

6324 

6324 

/MOlOK  PULSE 


/kUNBACK  NEEDED? 

/NO*  DONE 

/WAI1  A  F hACT ION  OF  A  SECOND 


/ADDS  -40  10  HOkD.LOkD 


/WAI1  231 I  CYCLES  *  .0335  SEC. 


/PAUSE  N  UAH  LOOPS*  WHEkE  -N  IN  AC 
/ON  ENIkY 


/ i UKN  11 Y  ON 


/'WAI1  ONE  SECOND 


/I 1H  NEG.  MO  10k  PULSE 
/I JH  PCS. 

/CHI  NEG. 

/CHI  POS. 

/PHI  NEG. 

/PHI  POs. 

/OMG  NEG. 

/OMU  POS. 
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ACNEG6 

5227 

ACNEG  7 

466  3 

4CSA\IE 

00  32 

AC  1  H 

JU41 

AC  1  L 

00  42 

ADDM 

5160 

ADDUZ 

n?3 

AMN16 

5331 

amn  r  / 

4665 

ANGLE 

46U.) 

ANGLE  l 

00  7  4 

ANGX 

41  53 

ARCblN 

4721 

A'J  1  1 

0015 

haaIC 

4163 

BA5ICZ 

0.17  5 

bkjnd 

447  4 

hkgnd  1 

0377 

BKGND2 

41  36 

CHI 

47  61 

CHIL 

5243 

CHINA 

5372 

CHIU 

5240 

CHIU 

47  7  2 

CHI  1 

5231 

CLEAR 

37  1  7 

CLEARZ 

0076 

CLKCJ 

3620 

CLKCU 

3617 

CLKC1 

36  30 

CL KRAI 

366  7 

CLKSW 

36  25 

CLOCK 

0034 

CN1 ADD 

3727 

CNICK 

36  31 

CNIS1P 

36  36 

COUNI 

3600 

COUNI Z 

0377 

CPS 

37  00 

CPS1 

5101 

CPS2 

4151 

CKLF 

0064 

C1LMI 

4173 

CILMTZ 

0100 

C3 

5010 

DBCNTR 

00  37 

DD1AU 

3672 

dflmt 

50  36 

oflmiz 

0101 

DIMSW 

4263 

DCCN1 

5127 

DO  3A 

51  14 

U03A2 

0102 

DO  36 

5122 

D0  36Z 

0103 

D1H1 

4543 

01  HI  1 

4374 

D1H1U 

41  52 

01  H2 

4546 

D1H3 

4551 

02HI 

4566 

D2H1  1 

4376 

D2H1U 

4156 

D2H2 

457  I 

D2H3 

45  74 

E  IN 

47  44 

ENO 

37  06 

EXP 

0044 

EX1  RA 

41  35 

EX  1 

0040 

fcmin 

47  1  4 

gonxi 

437  0 

U1NDS 

4262 

GINDbZ 

0104 

gindi 

427  7 

H1CLK 

3701 

HJCNJ 

3676 

HI  1  IM 

3703 

HORD 

0045 

H01 

4555 

H01  i 

437  3 

H01U 

4157 

H02 

4563 

H0  3 

4563 

HI 

4532 

HI  Z 

0065 

H2 

4535 

H3 

4540 

INDTS 

4222 

INDTSZ 

0105 

IND1  1 

4234 

INDI2 

42  37 

IN1P1 

0333 

INI  H  I 

0200 

IblORZ 

0066 

large 

47  10 

LIMIT 

5200 

LIMIT Z 

0106 

LOCLK 

37  02 

LCCLKI 

4320 

LOCNI 

36  7  7 

LOCI 

0051 

LCC2 

0052 

L0C3 

0053 

LORD 

0346 

LOT  IM 

3704 

L02A 

440  7 

L02A1 

46  50 

maxci 

3705 

MAXCI 1 

41  77 

MOs/E 

5272 

MPY\7 

46  7  1 

MPY\/H 

4707 

MPYV1 

4473 

M40 

5344 

nbrhi 

0357 

NBKL0 

0060 

NBKX 

0056 

ND 

507  1 

NDEC 

0354 

ND  IG 

3055 

NCGO 

5326 

N  1 

5072 

NWAI  1 

5353 

N1 

4477 

nincr 

4554 

NlNCRI 

437  5 

N1 NCR2 

41  50 

NIP 

4664 

N1  1 

447  2 

N2 

4532 

N2NCR 

457  7 

N2NCRI 

437  7 

N2NCR2 

4160 

N3 

4505 

OMGNP 

5376 

OUfl 

0004 

OUT  2 

0003 

Os/ERl 

0043 

CUER2 

0047 

PAWS 

5354 

PAW  S 1 

5177 

PHI 

4764 

PHINP 

537  4 

PH  10 

4775 

PPRCH 

47  53 

PPRCHI 

5056 
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pprph 

PPRTT 

PPRTT 1 

PPPTT2 

ppRl 1 3 

PPKX 

PULSE 

PI 

P2 

P3 

UUOL 

KCOM I 

rtCOM  1 Z 

rdpdeg 

rdpdg 1 

READ 

READA 

READA2 

READV 

READVZ 

RNCNT 

RNCNT 1 

RSI  AS 

KSTASZ 

R1N1 

KTN2 

RJNOV/K 

SC  INI 

SCIN1Z 

SCIN0 

SCINl 

SC  IN2 

SCNET 

SCNET Z 

SCNI0 

SCNT1 

SCNT1H 

SCNT2 

SFRMT 

SFRMTZ 

SHF  IV 

SHFTVZ 

small 

STEP 

STEPZ 
STORE Z 
SOM 
SUM2 
SUM  3 


47  53 

SUM3P 

4161 

47  45 

SW  ADD 

4257 

5054 

S^ ADD I 

0341 

4017 

SWADD2 

0342 

4221 

SWIT1 

0061 

4154 

TMLAG 

5367 

5312 

1  ML AG 2 

5176 

4510 

TMLMT 

37  07 

4513 

1MLM1 Z 

0120 

4516 

IMP3 

52  30 

0050 

TRICR 

5000 

4200 

1RICRZ 

0121 

0107 

T1H 

47  56 

5022 

1 1HL 

5235 

4155 

1THNP 

5370 

0062 

TfHNPZ 

0070 

5011 

I THJ 

5232 

01  10 

TIHU1 

5055 

5130 

Tl  HZ 

007  1 

0111 

11  H0 

47  6  7 

4261 

T  l  H0Z 

0072 

4162 

T  l  YOF 

517  1 

4210 

Tl YOFZ 

0122 

0112 

T  l  YCN 

5362 

36  15 

1 1 YONZ 

0123 

36  14 

tycnt 

5102 

5332 

tycntz 

0124 

4020 

tycps 

5073 

0113 

TYCPSZ 

0125 

4104 

type 

0063 

4045 

typea 

5025 

4031 

typeaz 

0126 

4321 

T  YPEV 

5150 

01  14 

1 YPEVZ 

0127 

4356 

iypex 

4000 

4334 

iypexz 

0130 

0316 

Tl 

4521 

4325 

12 

4524 

5062 

13 

4527 

0115 

UNREAL 

47  40 

5140 

VI 

0035 

0116 

V2 

00  36 

4656 

WAIT 

5345 

5246 

XCNT 

3675 

01  17 

XCNT1 

51  13 

0067 

XTAL 

4400 

4145 

XTALZ 

01  31 

41  42 

XI 

47  06 

41  37 

Y 

4666 
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